home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 January / MacHome Magazine Demo Disc January 2001.iso / mac / Software / Applications / CESLab3.0b0.sea / CESLab3.0b0 / CESLab Scripts / Vary Lung Conductivity / Vary Lung Conductivity
Encoding:
Text File  |  2000-09-04  |  1.6 KB  |  42 lines  |  [TEXT/CeEs]
  1. // Copyright (C) 1995-2000 CESI.  All rights reserved.
  2.  
  3. // Executes a series of trials to test the effects of lung polyhedra with
  4. // varying conductivities.  The first trial employs no lung polyhedra.  The
  5. // second trial employs lung polyhedra with the same conductivity as the base
  6. // torso, and should produce results identical to the first trial. 
  7. // Each successive trial employs a linearly decreased lung conductivity.
  8. //
  9. // Upon execution, the "channeling" effect described by Gulrajani and
  10. // Mailloux (see the document "CESLab Technical Specifications" for more
  11. // information) should be evident in anterior VCG viewers as an increase
  12. // in Y-axis oriented (vertical
  13. // in torso space) current dipoles in the later trials, and a corresponding 
  14. // diminuition of
  15. // dipole along the other axes.  This effect should become stronger as
  16. // lung conductivity decreases.
  17. //
  18. // In a superior VCG view, the lung channeling effect should be manifested 
  19. // as decreases in left-right dipole, and corresponding increase in dipole
  20. // along the Z-axis.
  21.  
  22. SetPolyhedronEmployment("Left Lung Polyhedron", False);
  23. SetPolyhedronEmployment("Right Lung Polyhedron", False);
  24.  
  25. StartNewTrial("No Lung Polyhedra");
  26.  
  27. //
  28.  
  29. SetPolyhedronEmployment("Left Lung Polyhedron", True);
  30. SetPolyhedronEmployment("Right Lung Polyhedron", True);
  31.  
  32. benchvar theLungConductivity = .2;
  33.  
  34. while (theLungConductivity > .04) {
  35.  
  36.     SetTissueTypeConductivity("Lung Tissue Type", theLungConductivity);
  37.  
  38.     StartNewTrial("Lung Conductivity " + theLungConductivity + " S/m");
  39.  
  40.     theLungConductivity = theLungConductivity - .05;
  41. }
  42.